States with non-missing outcome data for the Hispanic subpopulation
#Number of non-missing states
hispanic_complete_geo %>%
filter(year==2019) %>%
st_set_geometry(NULL) %>%
group_by(treated) %>%
summarise(n=n())
## # A tibble: 2 × 2
## treated n
## <dbl> <int>
## 1 0 7
## 2 1 20
hispanic_complete_geo %>%
filter(year==2019) %>%
dplyr::select(starts_with("state_abb"),starts_with("treated"),starts_with("year"),race) %>%
mutate(treated_char=as.character(treated)) %>%
mapview(zcol="treated_char",
layer.name="Medicaid expansion state, 2019")
States with non-missing data for the Black subpopulation
#Number of non-missing states
black_complete_geo %>%
filter(year==2019) %>%
st_set_geometry(NULL) %>%
group_by(treated) %>%
summarise(n=n())
## # A tibble: 2 × 2
## treated n
## <dbl> <int>
## 1 0 12
## 2 1 25
black_complete_geo %>%
filter(year==2019) %>%
dplyr::select(starts_with("state_abb"),starts_with("treated"),starts_with("year"),race) %>%
mutate(treated_char=as.character(treated)) %>%
mapview(zcol="treated_char",
layer.name="Medicaid expansion state, 2019")